home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontsh13 / fs_psize.frm < prev    next >
Text File  |  1994-03-17  |  8KB  |  259 lines
  1. VERSION 2.00
  2. Begin Form FS_Psize 
  3.    BackColor       =   &H0080FF80&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Choose Paragraph Sizes"
  6.    ClientHeight    =   4440
  7.    ClientLeft      =   4140
  8.    ClientTop       =   2352
  9.    ClientWidth     =   3396
  10.    Height          =   4860
  11.    Left            =   4092
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4440
  16.    ScaleWidth      =   3396
  17.    Top             =   1980
  18.    Width           =   3492
  19.    Begin SSCommand CmdParaDefault 
  20.       Caption         =   "&Default"
  21.       ForeColor       =   &H00000080&
  22.       Height          =   492
  23.       Left            =   1680
  24.       TabIndex        =   16
  25.       Top             =   840
  26.       Width           =   1212
  27.    End
  28.    Begin SSCommand CmdParaCancel 
  29.       Caption         =   "&Cancel"
  30.       ForeColor       =   &H00000080&
  31.       Height          =   492
  32.       Left            =   1680
  33.       TabIndex        =   2
  34.       Top             =   2280
  35.       Width           =   1212
  36.    End
  37.    Begin SSCommand CmdParaOK 
  38.       Caption         =   "&OK"
  39.       ForeColor       =   &H00000080&
  40.       Height          =   492
  41.       Left            =   1680
  42.       TabIndex        =   1
  43.       Top             =   1560
  44.       Width           =   1212
  45.    End
  46.    Begin SSCheck ChkParaSize 
  47.       Caption         =   " 14"
  48.       ForeColor       =   &H00800000&
  49.       Height          =   252
  50.       Index           =   12
  51.       Left            =   480
  52.       TabIndex        =   15
  53.       Top             =   3240
  54.       Value           =   -1  'True
  55.       Width           =   612
  56.    End
  57.    Begin SSCheck ChkParaSize 
  58.       Caption         =   " 13"
  59.       ForeColor       =   &H00800000&
  60.       Height          =   252
  61.       Index           =   11
  62.       Left            =   480
  63.       TabIndex        =   14
  64.       Top             =   3000
  65.       Value           =   -1  'True
  66.       Width           =   612
  67.    End
  68.    Begin SSCheck ChkParaSize 
  69.       Caption         =   " 12"
  70.       ForeColor       =   &H00800000&
  71.       Height          =   252
  72.       Index           =   10
  73.       Left            =   480
  74.       TabIndex        =   13
  75.       Top             =   2760
  76.       Value           =   -1  'True
  77.       Width           =   612
  78.    End
  79.    Begin SSCheck ChkParaSize 
  80.       Caption         =   " 11.5"
  81.       ForeColor       =   &H00800000&
  82.       Height          =   255
  83.       Index           =   9
  84.       Left            =   480
  85.       TabIndex        =   12
  86.       Top             =   2520
  87.       Width           =   735
  88.    End
  89.    Begin SSCheck ChkParaSize 
  90.       Caption         =   " 11"
  91.       ForeColor       =   &H00800000&
  92.       Height          =   252
  93.       Index           =   8
  94.       Left            =   480
  95.       TabIndex        =   11
  96.       Top             =   2280
  97.       Value           =   -1  'True
  98.       Width           =   612
  99.    End
  100.    Begin SSCheck ChkParaSize 
  101.       Caption         =   " 10.5"
  102.       ForeColor       =   &H00800000&
  103.       Height          =   255
  104.       Index           =   7
  105.       Left            =   480
  106.       TabIndex        =   10
  107.       Top             =   2040
  108.       Width           =   735
  109.    End
  110.    Begin SSCheck ChkParaSize 
  111.       Caption         =   " 10"
  112.       ForeColor       =   &H00800000&
  113.       Height          =   252
  114.       Index           =   6
  115.       Left            =   480
  116.       TabIndex        =   9
  117.       Top             =   1800
  118.       Value           =   -1  'True
  119.       Width           =   612
  120.    End
  121.    Begin SSCheck ChkParaSize 
  122.       Caption         =   " 9.5"
  123.       ForeColor       =   &H00800000&
  124.       Height          =   252
  125.       Index           =   5
  126.       Left            =   480
  127.       TabIndex        =   8
  128.       Top             =   1560
  129.       Width           =   612
  130.    End
  131.    Begin SSCheck ChkParaSize 
  132.       Caption         =   " 9"
  133.       ForeColor       =   &H00800000&
  134.       Height          =   252
  135.       Index           =   4
  136.       Left            =   480
  137.       TabIndex        =   7
  138.       Top             =   1320
  139.       Value           =   -1  'True
  140.       Width           =   612
  141.    End
  142.    Begin SSCheck ChkParaSize 
  143.       Caption         =   " 8.5"
  144.       ForeColor       =   &H00800000&
  145.       Height          =   252
  146.       Index           =   3
  147.       Left            =   480
  148.       TabIndex        =   6
  149.       Top             =   1080
  150.       Width           =   612
  151.    End
  152.    Begin SSCheck ChkParaSize 
  153.       Caption         =   " 8"
  154.       ForeColor       =   &H00800000&
  155.       Height          =   252
  156.       Index           =   2
  157.       Left            =   480
  158.       TabIndex        =   5
  159.       Top             =   840
  160.       Width           =   612
  161.    End
  162.    Begin SSCheck ChkParaSize 
  163.       Caption         =   " 7.5"
  164.       ForeColor       =   &H00800000&
  165.       Height          =   252
  166.       Index           =   1
  167.       Left            =   480
  168.       TabIndex        =   4
  169.       Top             =   600
  170.       Width           =   612
  171.    End
  172.    Begin SSCheck ChkParaSize 
  173.       Caption         =   " 7"
  174.       ForeColor       =   &H00800000&
  175.       Height          =   252
  176.       Index           =   0
  177.       Left            =   480
  178.       TabIndex        =   3
  179.       Top             =   360
  180.       Width           =   612
  181.    End
  182.    Begin SSPanel Panel3D1 
  183.       AutoSize        =   3  'AutoSize Child To Panel
  184.       BevelInner      =   1  'Inset
  185.       Height          =   3375
  186.       Left            =   360
  187.       TabIndex        =   0
  188.       Top             =   240
  189.       Width           =   975
  190.    End
  191.    Begin Label Label2 
  192.       BackColor       =   &H0080FF80&
  193.       Caption         =   "Default sizes are 9,10,11,12,13,14."
  194.       ForeColor       =   &H00400040&
  195.       Height          =   375
  196.       Left            =   360
  197.       TabIndex        =   18
  198.       Top             =   3960
  199.       Width           =   2895
  200.    End
  201.    Begin Label Label1 
  202.       BackColor       =   &H0080FF80&
  203.       Caption         =   "Choose up to 6 sizes."
  204.       ForeColor       =   &H00400040&
  205.       Height          =   252
  206.       Left            =   360
  207.       TabIndex        =   17
  208.       Top             =   3720
  209.       Width           =   1932
  210.    End
  211. End
  212.  
  213. Sub ChkParaSize_Click (Index As Integer, Value As Integer)
  214.     If RefreshDefault = True Then
  215.         CmdParaDefault.Enabled = False
  216.         For n = 0 To 12
  217.             v = ChkParaSize(n).Value
  218.             If ((n <= 3 Or n = 5 Or n = 7 Or n = 9) And v = True) Or ((n = 4 Or n = 6 Or n = 8 Or n >= 10) And v = False) Then
  219.                 CmdParaDefault.Enabled = True
  220.                 Exit Sub
  221.             End If
  222.         Next
  223.     End If
  224. End Sub
  225.  
  226. Sub CmdParaCancel_Click ()
  227.     FS_Psize.Hide
  228.     FS_Prmsg.Hide
  229.     DoPara = False
  230. End Sub
  231.  
  232. Sub CmdParaDefault_Click ()
  233.     RefreshDefault = False
  234.     For n = 0 To 12
  235.         ChkParaSize(n) = IIf(n <= 3 Or n = 5 Or n = 7 Or n = 9, False, True)
  236.     Next
  237.     RefreshDefault = True
  238.     CmdParaDefault.Enabled = False
  239. End Sub
  240.  
  241. Sub CmdParaOK_Click ()
  242.     NumSizes = 0
  243.     For n = 0 To 12
  244.         If ChkParaSize(n) = True Then NumSizes = NumSizes + 1
  245.     Next
  246.     If NumSizes > 6 Then
  247.         mb = MsgBox("No more than 6 sizes" + CRLF + "may be selected", 48, "FontShow Error")
  248.         Exit Sub
  249.     End If
  250.     FS_Psize.Hide
  251. End Sub
  252.  
  253. Sub Form_Load ()
  254.     Top = 900
  255.     Left = (Screen.Width - Width) / 2
  256.     CmdParaDefault.Enabled = False
  257. End Sub
  258.  
  259.